From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 24 Feb 2010 15:30:49 +0000 (-0500)
Subject: * files.el (hack-local-variables-filter): For eval forms, also
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~8495
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3d194bebf7c2a4c8b2aca2830cba4ff624f3a746;p=emacs.git

* files.el (hack-local-variables-filter): For eval forms, also
check safe-local-variable-p (Bug#5636).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d0c02f4c24e..686a425463c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-02-24  Chong Yidong  <cyd@stupidchicken.com>
+
+	* files.el (hack-local-variables-filter): For eval forms, also
+	check safe-local-variable-p (Bug#5636).
+
 2010-02-24  Eduard Wiebe  <usenet@pusto.de>
 
 	* javascript.el (wisent-javascript-jv-expand-tag): Avoid c(ad)ddr
diff --git a/lisp/files.el b/lisp/files.el
index ee03c115cf8..d6783f82fbb 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2981,6 +2981,7 @@ DIR-NAME is a directory name if these settings come from
 		 (push elt all-vars)
 		 (or (eq enable-local-eval t)
 		     (hack-one-local-variable-eval-safep (eval (quote val)))
+		     (safe-local-variable-p var val)
 		     (push elt unsafe-vars))))
 	      ;; Ignore duplicates (except `mode') in the present list.
 	      ((and (assq var all-vars) (not (eq var 'mode))) nil)